home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / html / reporting / satan_info_domain.pl < prev    next >
Text File  |  1995-03-31  |  1KB  |  48 lines
  1. #
  2. # Report all internet domains.
  3. #
  4. print CLIENT <<EOF;
  5. <HTML>
  6. <HEAD>
  7. <title> Host Tables - by Internet Domain </title>
  8. <LINK REV="made" HREF="mailto:satan\@fish.com">
  9. </HEAD>
  10. <BODY>
  11. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> Host Tables - by Internet Domain </H1>
  12. <hr>
  13. <h3>Number of hosts per internet domain (vulnerable/total).</h3>
  14. <strong>Domains with a red dot next to them have a vulnerable host contained within.</strong>
  15. <ul>
  16. EOF
  17.  
  18. &make_domain_info() ;
  19.  
  20. for (sort keys %all_domains) {
  21.     next if (!$_);
  22.     $_dot = $domain_severities{$_} ? "reddot" : "blackdot";
  23.     $_alt = $domain_severities{$_} ? "*" : "-";
  24.     print CLIENT <<EOF;
  25.     <dt><IMG SRC=$HTML_ROOT/dots/$_dot.gif ALT="$_alt"> 
  26.     <a href="satan_results_domain.pl,$_,"> $_</a>
  27.     ($domain_severities{$_}/$domain_count{$_})
  28. EOF
  29. }
  30.  
  31. print CLIENT <<EOF;
  32. </ul>
  33. EOF
  34.  
  35. if (sizeof(*all_domains) == 0) {
  36.     print CLIENT <<EOF;
  37.     No domain information available.
  38. EOF
  39. }
  40.  
  41. print CLIENT <<EOF;
  42. </ul>
  43. <hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a> |
  44. <a href=analysis.pl> Back to SATAN Reporting and Analysis </a>
  45. </BODY>
  46. </HTML>
  47. EOF
  48.